home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / e-tools / egui-tools / src / imgplug-test.e < prev    next >
Encoding:
Text File  |  1996-06-15  |  3.2 KB  |  42 lines
  1. OPT     OSVERSION=37            /* EasyGUI arbeitet erst ab V.37*/
  2.  
  3. MODULE  'icon'                  /* Zum laden des Icons...       */
  4. MODULE  'intuition/intuition'   /* Für das image-object...      */
  5. MODULE  'plugin/imgplug'        /* für das image-plugin         */
  6. MODULE  'tools/easygui'         /* für easygui                  */
  7. MODULE  'workbench/workbench'   /* Objecte ect...               */
  8.  
  9.  DEF    p:PTR TO imgplug,       /* Pointer auf das imgplug-Obj  */
  10.         file:PTR TO diskobject, /* Pointer auf das Diskobject   */
  11.         icon:PTR TO gadget,     /* Pointer auf das Gadgetobj... */
  12.         image:PTR TO image,     /* Und hier endlich der Img.PTR */
  13.         select:PTR TO image     /* Selektiertes Image           */
  14.  
  15. PROC main()     HANDLE                                          /* MAIN-Prozedur mit EXCEPTION-HANDLING */
  16.  DEF    ourtask                                                 /* Zeiger auf unseren Task...           */
  17.   ourtask:=FindTask(NIL)                                        /* Unseren Task ausfindig machen...     */
  18.    SetTaskPri(ourtask,-2)                                       /* Da wir ja praktisch nix tun sollen...*/
  19.     IF (iconbase:=OpenLibrary('icon.library',37))=NIL THEN Raise('dummy')       /* iconlibrary öffnen   */
  20.      IF (file:=GetDiskObject(arg))=NIL THEN Raise('dummy')      /* Icon öffnen (arg=filename)           */
  21.       icon:=file.gadget                                         /* Gadget aus dem Image holen           */
  22.        image:=icon.gadgetrender                                 /* Image-Daten (gadgetrender)           */
  23.         select:=icon.selectrender                               /* Image-Daten des Selektieren Gadgets  */
  24.          WriteF(' Click on the Image and look what happens...:-)\n\n')  /* Text ausgeben...             */
  25.           easygui('Image-Plugintest!',                          /* EasyGUI-Prozedur                     */
  26.                 [ROWS,
  27.                 [PLUGIN, {msg}, NEW p.create(image,IMG_ALTERNATIVE,select)],    /* Imgobjekt initialisieren     */
  28.                 [SBUTTON,{dummy},'DUMMY']])
  29. EXCEPT DO                                                       /* Exception Handling...                */
  30.       END p                                                     /* Speicher für p wieder freigeben      */
  31.      IF file THEN FreeDiskObject(file)                          /* Iconimage wieder freigeben           */
  32.     IF iconbase THEN CloseLibrary(iconbase)                     /* icon.library wieder schließen        */
  33.    IF exception THEN CleanUp(20) ELSE CleanUp(0)                /* CleanUp() DOS-Returnwert setzen      */
  34. ENDPROC                                                         /* Ende der MainProzedur...             */
  35.  
  36. PROC msg()                                                      /* Solle normal beim anklicken des      */
  37.  WriteF(' Pressed! \n')                                         /* Plugins ausgegeben werden ,aber das  */
  38. ENDPROC                                                         /* akt. EasyGUI macht das (?) nicht!    */
  39.  
  40. PROC dummy()                                                    /* Ein Dummy...                         */
  41. ENDPROC                                                         /* Ende der Prozedur                    */
  42.